/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / schools / _compint / compnd1

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e 20 f4 20 3e | 20 3c 57 69 6d 70 53 79 |.... . >| <WimpSy|
|00000010| 73 24 44 69 72 3e 2e 43 | 6f 6d 70 6e 64 31 0d 00 |s$Dir>.C|ompnd1..|
|00000020| 14 22 20 f4 20 43 6f 70 | 79 72 69 67 68 74 20 45 |." . Cop|yright E|
|00000030| 2e 46 2e 4c 6f 72 64 20 | 31 30 2f 31 31 2f 38 35 |.F.Lord |10/11/85|
|00000040| 0d 00 1e 23 20 f4 20 43 | 6f 6d 70 6f 75 6e 64 20 |...# . C|ompound |
|00000050| 49 6e 74 65 72 65 73 74 | 20 43 61 6c 63 75 6c 61 |Interest| Calcula|
|00000060| 74 6f 72 0d 00 28 09 20 | eb 20 31 31 0d 00 32 0f |tor..(. |. 11..2.|
|00000070| 20 ee 20 85 20 e5 20 8d | 74 46 41 0d 00 3c 17 20 | . . . .|tFA..<. |
|00000080| 66 6c 74 6e 3d 30 3a 6c | 6d 70 3d 30 3a 72 65 67 |fltn=0:l|mp=0:reg|
|00000090| 3d 30 0d 00 46 54 20 6c | 75 6d 70 73 75 6d 24 3d |=0..FT l|umpsum$=|
|000000a0| 22 30 22 3a 79 65 61 72 | 24 3d 22 30 22 3a 66 75 |"0":year|$="0":fu|
|000000b0| 74 76 61 6c 24 3d 22 30 | 22 3a 52 24 3d 22 30 22 |tval$="0|":R$="0"|
|000000c0| 3a 6e 24 3d 22 30 22 3a | 66 6c 74 6e 24 3d 22 30 |:n$="0":|fltn$="0|
|000000d0| 22 3a 72 65 67 6c 61 72 | 24 3d 22 30 22 3a 6e 70 |":reglar|$="0":np|
|000000e0| 61 24 3d 22 30 22 0d 00 | 50 0e 20 40 25 3d 26 32 |a$="0"..|P. @%=&2|
|000000f0| 30 32 30 38 0d 00 5a 06 | 20 f5 0d 00 64 06 20 db |0208..Z.| ...d. .|
|00000100| 0d 00 6e 0b 20 f2 74 69 | 74 6c 65 0d 00 78 04 0d |..n. .ti|tle..x..|
|00000110| 00 82 21 20 f1 8a 30 2c | 35 29 22 4c 75 6d 70 73 |..! ..0,|5)"Lumps|
|00000120| 75 6d 20 63 61 6c 63 75 | 6c 61 74 69 6f 6e 73 22 |um calcu|lations"|
|00000130| 0d 00 8c 2d 20 f1 8a 30 | 2c 37 29 22 20 20 31 2e |...- ..0|,7)"  1.|
|00000140| 20 43 61 6c 63 75 6c 61 | 74 65 20 65 6e 64 20 6f | Calcula|te end o|
|00000150| 66 20 74 65 72 6d 20 76 | 61 6c 75 65 22 0d 00 96 |f term v|alue"...|
|00000160| 2b 20 f1 8a 30 2c 38 29 | 22 20 20 32 2e 20 43 61 |+ ..0,8)|"  2. Ca|
|00000170| 6c 63 75 6c 61 74 65 20 | 49 6e 74 65 72 65 73 74 |lculate |Interest|
|00000180| 20 72 61 74 65 20 20 22 | 0d 00 a0 2a 20 f1 8a 30 | rate  "|...* ..0|
|00000190| 2c 39 29 22 20 20 33 2e | 20 43 61 6c 63 75 6c 61 |,9)"  3.| Calcula|
|000001a0| 74 65 20 73 74 61 72 74 | 69 6e 67 20 76 61 6c 75 |te start|ing valu|
|000001b0| 65 22 0d 00 aa 2a 20 f1 | 8a 30 2c 31 30 29 22 20 |e"...* .|.0,10)" |
|000001c0| 20 34 2e 20 43 61 6c 63 | 75 6c 61 74 65 20 74 65 | 4. Calc|ulate te|
|000001d0| 72 6d 20 69 6e 20 79 65 | 61 72 73 22 0d 00 b4 29 |rm in ye|ars"...)|
|000001e0| 20 f1 8a 30 2c 31 32 29 | 22 52 65 67 75 6c 61 72 | ..0,12)|"Regular|
|000001f0| 20 53 61 76 69 6e 67 20 | 63 61 6c 63 75 6c 61 74 | Saving |calculat|
|00000200| 69 6f 6e 73 22 0d 00 be | 2e 20 f1 8a 30 2c 31 34 |ions"...|. ..0,14|
|00000210| 29 22 20 20 35 2e 20 43 | 61 6c 63 75 6c 61 74 65 |)"  5. C|alculate|
|00000220| 20 65 6e 64 20 6f 66 20 | 74 65 72 6d 20 76 61 6c | end of |term val|
|00000230| 75 65 22 0d 00 c8 2c 20 | f1 8a 30 2c 31 35 29 22 |ue"..., |..0,15)"|
|00000240| 20 20 36 2e 20 43 61 6c | 63 75 6c 61 74 65 20 49 |  6. Cal|culate I|
|00000250| 6e 74 65 72 65 73 74 20 | 72 61 74 65 20 20 22 0d |nterest |rate  ".|
|00000260| 00 d2 2b 20 f1 8a 30 2c | 31 36 29 22 20 20 37 2e |..+ ..0,|16)"  7.|
|00000270| 20 43 61 6c 63 75 6c 61 | 74 65 20 73 74 61 72 74 | Calcula|te start|
|00000280| 69 6e 67 20 76 61 6c 75 | 65 22 0d 00 dc 2a 20 f1 |ing valu|e"...* .|
|00000290| 8a 30 2c 31 37 29 22 20 | 20 38 2e 20 53 65 74 20 |.0,17)" | 8. Set |
|000002a0| 76 61 6c 75 65 20 6f 66 | 20 69 6e 66 6c 61 74 69 |value of| inflati|
|000002b0| 6f 6e 20 22 0d 00 e6 38 | 20 f1 8a 30 2c 31 38 29 |on "...8| ..0,18)|
|000002c0| 22 20 20 39 2e 20 43 61 | 6c 63 75 6c 61 74 65 20 |"  9. Ca|lculate |
|000002d0| 43 6f 6d 70 6f 75 6e 64 | 20 41 6e 6e 75 61 6c 20 |Compound| Annual |
|000002e0| 52 61 74 65 20 28 43 41 | 52 29 20 22 0d 00 e7 04 |Rate (CA|R) "....|
|000002f0| 0d 00 f0 1f 20 f1 8a 30 | 2c 31 39 29 22 20 20 30 |.... ..0|,19)"  0|
|00000300| 2e 20 45 6e 64 20 70 72 | 6f 67 72 61 6d 20 22 0d |. End pr|ogram ".|
|00000310| 00 fa 34 20 f1 8a 30 2c | 32 32 29 22 43 75 72 72 |..4 ..0,|22)"Curr|
|00000320| 65 6e 74 20 76 61 6c 75 | 65 20 6f 66 20 69 6e 66 |ent valu|e of inf|
|00000330| 6c 61 74 69 6f 6e 20 22 | 3b 66 6c 74 6e 24 3b 22 |lation "|;fltn$;"|
|00000340| 20 25 22 0d 01 04 23 20 | f1 8a 30 2c 32 34 29 22 | %"...# |..0,24)"|
|00000350| 45 6e 74 65 72 20 63 68 | 6f 69 63 65 20 22 3b 3a |Enter ch|oice ";:|
|00000360| 63 68 63 24 3d be 0d 01 | 0e 06 20 db 0d 01 18 27 |chc$=...|.. ....'|
|00000370| 20 e7 20 63 68 63 24 3d | 22 31 22 20 6c 6d 70 3d | . chc$=|"1" lmp=|
|00000380| 31 3a f2 66 75 74 75 72 | 65 76 61 6c 3a f2 70 72 |1:.futur|eval:.pr|
|00000390| 69 6e 74 0d 01 22 26 20 | e7 20 63 68 63 24 3d 22 |int.."& |. chc$="|
|000003a0| 32 22 20 6c 6d 70 3d 31 | 3a f2 69 6e 74 65 72 65 |2" lmp=1|:.intere|
|000003b0| 73 74 3a f2 70 72 69 6e | 74 0d 01 2c 26 20 e7 20 |st:.prin|t..,& . |
|000003c0| 63 68 63 24 3d 22 33 22 | 20 6c 6d 70 3d 31 3a f2 |chc$="3"| lmp=1:.|
|000003d0| 73 74 61 72 74 76 61 6c | 3a f2 70 72 69 6e 74 0d |startval|:.print.|
|000003e0| 01 36 26 20 e7 20 63 68 | 63 24 3d 22 34 22 20 6c |.6& . ch|c$="4" l|
|000003f0| 6d 70 3d 31 3a f2 66 69 | 6e 64 74 65 72 6d 3a f2 |mp=1:.fi|ndterm:.|
|00000400| 70 72 69 6e 74 0d 01 40 | 27 20 e7 20 63 68 63 24 |print..@|' . chc$|
|00000410| 3d 22 35 22 20 72 65 67 | 3d 31 3a f2 72 65 67 65 |="5" reg|=1:.rege|
|00000420| 6e 64 76 61 6c 3a f2 70 | 72 69 6e 74 0d 01 4a 29 |ndval:.p|rint..J)|
|00000430| 20 e7 20 63 68 63 24 3d | 22 36 22 20 72 65 67 3d | . chc$=|"6" reg=|
|00000440| 31 3a f2 72 65 67 69 6e | 74 65 72 65 73 74 3a f2 |1:.regin|terest:.|
|00000450| 70 72 69 6e 74 0d 01 54 | 28 20 e7 20 63 68 63 24 |print..T|( . chc$|
|00000460| 3d 22 37 22 20 72 65 67 | 3d 31 3a f2 72 65 67 73 |="7" reg|=1:.regs|
|00000470| 74 61 72 74 76 6c 3a f2 | 70 72 69 6e 74 0d 01 5e |tartvl:.|print..^|
|00000480| 1a 20 e7 20 63 68 63 24 | 3d 22 38 22 20 f2 69 6e |. . chc$|="8" .in|
|00000490| 66 6c 61 74 69 6f 6e 0d | 01 68 1a 20 e7 20 63 68 |flation.|.h. . ch|
|000004a0| 63 24 3d 22 39 22 20 6c | 6d 70 3d 31 3a f2 63 61 |c$="9" l|mp=1:.ca|
|000004b0| 72 0d 01 72 0f 20 fd 20 | 63 68 63 24 3d 22 30 22 |r..r. . |chc$="0"|
|000004c0| 0d 01 7c 11 20 db 3a eb | 37 3a 40 25 3d 31 30 3a |..|. .:.|7:@%=10:|
|000004d0| e0 0d 01 86 1a 20 e7 20 | 9f 3c 3e 31 37 20 8c 20 |..... . |.<>17 . |
|000004e0| 8d 74 50 41 20 8b 20 8d | 44 5a 40 0d 01 90 22 20 |.tPA . .|DZ@..." |
|000004f0| ee 20 85 20 87 3a f6 3a | f1 22 20 40 20 6c 69 6e |. . .:.:|." @ lin|
|00000500| 65 20 22 3b 9e 3a 40 25 | 3d 31 30 3a e0 0d 01 9a |e ";.:@%|=10:....|
|00000510| 05 3a 0d 01 a4 10 dd 20 | f2 66 75 74 75 72 65 76 |.:..... |.futurev|
|00000520| 61 6c 0d 01 ae 0f 20 f2 | 65 6e 74 65 72 6c 75 6d |al.... .|enterlum|
|00000530| 70 0d 01 b8 0f 20 f2 65 | 6e 74 65 72 74 65 72 6d |p.... .e|nterterm|
|00000540| 0d 01 c2 0f 20 f2 65 6e | 74 65 72 72 61 74 65 0d |.... .en|terrate.|
|00000550| 01 cc 0f 20 f2 65 6e 74 | 65 72 63 6f 6d 70 0d 01 |... .ent|ercomp..|
|00000560| d6 2e 20 66 75 74 76 61 | 6c 3d 28 28 31 2b 28 52 |.. futva|l=((1+(R|
|00000570| 2f 28 6e 2a 31 30 30 29 | 29 29 5e 28 79 65 61 72 |/(n*100)|))^(year|
|00000580| 2a 6e 29 29 2a 6c 75 6d | 70 73 75 6d 0d 01 e0 29 |*n))*lum|psum...)|
|00000590| 20 64 65 66 6c 61 74 65 | 3d 28 28 31 2d 28 66 6c | deflate|=((1-(fl|
|000005a0| 74 6e 2f 31 30 30 29 29 | 5e 79 65 61 72 29 2a 66 |tn/100))|^year)*f|
|000005b0| 75 74 76 61 6c 0d 01 ea | 28 20 72 65 61 6c 6f 67 |utval...|( realog|
|000005c0| 61 72 6d 3d 28 ab 28 64 | 65 66 6c 61 74 65 2f 6c |arm=(.(d|eflate/l|
|000005d0| 75 6d 70 73 75 6d 29 29 | 2f 79 65 61 72 0d 01 f4 |umpsum))|/year...|
|000005e0| 1f 20 72 65 61 6c 52 3d | 31 30 30 2a 28 31 30 5e |. realR=|100*(10^|
|000005f0| 72 65 61 6c 6f 67 61 72 | 6d 2d 31 29 0d 01 fe 05 |realogar|m-1)....|
|00000600| e1 0d 02 08 05 3a 0d 02 | 12 0f dd 20 f2 69 6e 74 |.....:..|... .int|
|00000610| 65 72 65 73 74 0d 02 1c | 0f 20 f2 65 6e 74 65 72 |erest...|. .enter|
|00000620| 6c 75 6d 70 0d 02 26 0f | 20 f2 65 6e 74 65 72 74 |lump..&.| .entert|
|00000630| 65 72 6d 0d 02 30 15 20 | f2 65 6e 74 65 72 66 75 |erm..0. |.enterfu|
|00000640| 74 76 61 6c 28 31 30 29 | 0d 02 3a 24 20 6c 6f 67 |tval(10)|..:$ log|
|00000650| 61 72 6d 3d 28 ab 28 66 | 75 74 76 61 6c 2f 6c 75 |arm=(.(f|utval/lu|
|00000660| 6d 70 73 75 6d 29 29 2f | 79 65 61 72 0d 02 44 18 |mpsum))/|year..D.|
|00000670| 20 52 3d 31 30 30 2a 28 | 31 30 5e 6c 6f 67 61 72 | R=100*(|10^logar|
|00000680| 6d 2d 31 29 0d 02 4e 29 | 20 64 65 66 6c 61 74 65 |m-1)..N)| deflate|
|00000690| 3d 28 28 31 2d 28 66 6c | 74 6e 2f 31 30 30 29 29 |=((1-(fl|tn/100))|
|000006a0| 5e 79 65 61 72 29 2a 66 | 75 74 76 61 6c 0d 02 58 |^year)*f|utval..X|
|000006b0| 28 20 72 65 61 6c 6f 67 | 61 72 6d 3d 28 ab 28 64 |( realog|arm=(.(d|
|000006c0| 65 66 6c 61 74 65 2f 6c | 75 6d 70 73 75 6d 29 29 |eflate/l|umpsum))|
|000006d0| 2f 79 65 61 72 0d 02 62 | 1f 20 72 65 61 6c 52 3d |/year..b|. realR=|
|000006e0| 31 30 30 2a 28 31 30 5e | 72 65 61 6c 6f 67 61 72 |100*(10^|realogar|
|000006f0| 6d 2d 31 29 0d 02 6c 05 | e1 0d 02 76 05 3a 0d 02 |m-1)..l.|...v.:..|
|00000700| 80 0f dd 20 f2 73 74 61 | 72 74 76 61 6c 0d 02 8a |... .sta|rtval...|
|00000710| 0f 20 f2 65 6e 74 65 72 | 74 65 72 6d 0d 02 94 0f |. .enter|term....|
|00000720| 20 f2 65 6e 74 65 72 72 | 61 74 65 0d 02 9e 0f 20 | .enterr|ate.... |
|00000730| f2 65 6e 74 65 72 63 6f | 6d 70 0d 02 a8 15 20 f2 |.enterco|mp.... .|
|00000740| 65 6e 74 65 72 66 75 74 | 76 61 6c 28 31 35 29 0d |enterfut|val(15).|
|00000750| 02 b2 2e 20 6c 75 6d 70 | 73 75 6d 3d 66 75 74 76 |... lump|sum=futv|
|00000760| 61 6c 2f 28 28 31 2b 28 | 52 2f 28 6e 2a 31 30 30 |al/((1+(|R/(n*100|
|00000770| 29 29 29 5e 28 79 65 61 | 72 2a 6e 29 29 0d 02 bc |)))^(yea|r*n))...|
|00000780| 29 20 64 65 66 6c 61 74 | 65 3d 28 28 31 2d 28 66 |) deflat|e=((1-(f|
|00000790| 6c 74 6e 2f 31 30 30 29 | 29 5e 79 65 61 72 29 2a |ltn/100)|)^year)*|
|000007a0| 66 75 74 76 61 6c 0d 02 | c6 28 20 72 65 61 6c 6f |futval..|.( realo|
|000007b0| 67 61 72 6d 3d 28 ab 28 | 64 65 66 6c 61 74 65 2f |garm=(.(|deflate/|
|000007c0| 6c 75 6d 70 73 75 6d 29 | 29 2f 79 65 61 72 0d 02 |lumpsum)|)/year..|
|000007d0| d0 1f 20 72 65 61 6c 52 | 3d 31 30 30 2a 28 31 30 |.. realR|=100*(10|
|000007e0| 5e 72 65 61 6c 6f 67 61 | 72 6d 2d 31 29 0d 02 da |^realoga|rm-1)...|
|000007f0| 05 e1 0d 02 e4 05 3a 0d | 02 ee 0f dd 20 f2 66 69 |......:.|.... .fi|
|00000800| 6e 64 74 65 72 6d 0d 02 | f8 0f 20 f2 65 6e 74 65 |ndterm..|.. .ente|
|00000810| 72 6c 75 6d 70 0d 03 02 | 0f 20 f2 65 6e 74 65 72 |rlump...|. .enter|
|00000820| 72 61 74 65 0d 03 0c 0f | 20 f2 65 6e 74 65 72 63 |rate....| .enterc|
|00000830| 6f 6d 70 0d 03 16 15 20 | f2 65 6e 74 65 72 66 75 |omp.... |.enterfu|
|00000840| 74 76 61 6c 28 31 35 29 | 0d 03 20 31 20 79 78 6e |tval(15)|.. 1 yxn|
|00000850| 3d 28 ab 28 66 75 74 76 | 61 6c 2f 6c 75 6d 70 73 |=(.(futv|al/lumps|
|00000860| 75 6d 29 29 2f 28 ab 28 | 28 31 2b 28 52 2f 28 6e |um))/(.(|(1+(R/(n|
|00000870| 2a 31 30 30 29 29 29 29 | 29 0d 03 2a 0f 20 79 65 |*100))))|)..*. ye|
|00000880| 61 72 3d 79 78 6e 2f 6e | 0d 03 34 29 20 64 65 66 |ar=yxn/n|..4) def|
|00000890| 6c 61 74 65 3d 28 28 31 | 2d 28 66 6c 74 6e 2f 31 |late=((1|-(fltn/1|
|000008a0| 30 30 29 29 5e 79 65 61 | 72 29 2a 66 75 74 76 61 |00))^yea|r)*futva|
|000008b0| 6c 0d 03 3e 28 20 72 65 | 61 6c 6f 67 61 72 6d 3d |l..>( re|alogarm=|
|000008c0| 28 ab 28 64 65 66 6c 61 | 74 65 2f 6c 75 6d 70 73 |(.(defla|te/lumps|
|000008d0| 75 6d 29 29 2f 79 65 61 | 72 0d 03 48 1f 20 72 65 |um))/yea|r..H. re|
|000008e0| 61 6c 52 3d 31 30 30 2a | 28 31 30 5e 72 65 61 6c |alR=100*|(10^real|
|000008f0| 6f 67 61 72 6d 2d 31 29 | 0d 03 52 05 e1 0d 03 5c |ogarm-1)|..R....\|
|00000900| 05 3a 0d 03 66 0c dd 20 | f2 70 72 69 6e 74 0d 03 |.:..f.. |.print..|
|00000910| 70 06 20 db 0d 03 7a 0b | 20 f1 8a 30 2c 34 29 0d |p. ...z.| ..0,4).|
|00000920| 03 84 2d 20 f1 22 52 61 | 74 65 20 6f 66 20 69 6e |..- ."Ra|te of in|
|00000930| 66 6c 61 74 69 6f 6e 20 | 20 20 20 20 20 20 3d 20 |flation |      = |
|00000940| 20 20 22 66 6c 74 6e 3b | 22 20 25 22 0d 03 8e 2a |  "fltn;|" %"...*|
|00000950| 20 f1 22 52 61 74 65 20 | 6f 66 20 69 6e 74 65 72 | ."Rate |of inter|
|00000960| 65 73 74 20 20 20 20 20 | 20 20 20 3d 20 20 20 22 |est     |   =   "|
|00000970| 52 3b 22 20 25 22 0d 03 | 98 06 20 f1 0d 03 a2 18 |R;" %"..|.. .....|
|00000980| 20 e7 20 6c 6d 70 3d 31 | 20 8c 20 f2 6c 6d 70 70 | . lmp=1| . .lmpp|
|00000990| 72 69 6e 74 0d 03 ac 18 | 20 e7 20 72 65 67 3d 31 |rint....| . reg=1|
|000009a0| 20 8c 20 f2 72 65 67 70 | 72 69 6e 74 0d 03 b6 32 | . .regp|rint...2|
|000009b0| 20 f1 27 22 54 65 72 6d | 20 6f 66 20 69 6e 76 65 | .'"Term| of inve|
|000009c0| 73 74 6d 65 6e 74 20 20 | 20 20 20 20 3d 20 20 20 |stment  |    =   |
|000009d0| 22 79 65 61 72 3b 22 20 | 59 65 61 72 73 22 0d 03 |"year;" |Years"..|
|000009e0| c0 2b 20 f1 27 22 45 6e | 64 20 6f 66 20 74 65 72 |.+ .'"En|d of ter|
|000009f0| 6d 20 76 61 6c 75 65 20 | 20 20 20 20 20 20 3d 20 |m value |      = |
|00000a00| a3 20 22 66 75 74 76 61 | 6c 0d 03 ca 17 20 f1 3a |. "futva|l.... .:|
|00000a10| e7 20 72 65 67 3d 31 20 | 8c 20 e5 20 8d 64 68 43 |. reg=1 |. . .dhC|
|00000a20| 0d 03 d4 2c 20 f1 27 22 | 44 65 66 6c 61 74 65 64 |..., .'"|Deflated|
|00000a30| 20 66 75 74 75 72 65 20 | 76 61 6c 75 65 20 20 20 | future |value   |
|00000a40| 3d 20 a3 20 22 64 65 66 | 6c 61 74 65 0d 03 de 2e |= . "def|late....|
|00000a50| 20 f1 22 52 65 61 6c 20 | 72 61 74 65 20 6f 66 20 | ."Real |rate of |
|00000a60| 69 6e 74 65 72 65 73 74 | 20 20 20 3d 20 20 20 22 |interest|   =   "|
|00000a70| 72 65 61 6c 52 3b 22 20 | 25 22 0d 03 e8 04 0d 03 |realR;" |%"......|
|00000a80| f2 2c 20 f1 8a 30 2c 32 | 30 29 22 50 52 45 53 53 |., ..0,2|0)"PRESS|
|00000a90| 20 61 6e 79 20 6b 65 79 | 20 74 6f 20 63 6f 6e 74 | any key| to cont|
|00000aa0| 69 6e 75 65 22 3b 3a 47 | 3d a5 0d 03 fc 05 e1 0d |inue";:G|=.......|
|00000ab0| 04 06 05 3a 0d 04 10 10 | dd 20 f2 69 6e 66 6c 61 |...:....|. .infla|
|00000ac0| 74 69 6f 6e 0d 04 1a 32 | 20 f1 8a 30 2c 31 38 29 |tion...2| ..0,18)|
|00000ad0| 22 4e 6f 74 20 69 6d 70 | 6c 65 6d 65 6e 74 65 64 |"Not imp|lemented|
|00000ae0| 20 77 69 74 68 20 72 65 | 67 75 6c 61 72 20 73 61 | with re|gular sa|
|00000af0| 76 69 6e 67 73 22 0d 04 | 24 6a 20 74 31 3d 31 32 |vings"..|$j t1=12|
|00000b00| 3a 74 32 3d 34 33 3a 71 | 24 3d 22 57 68 61 74 20 |:t2=43:q|$="What |
|00000b10| 20 69 73 20 20 74 68 65 | 20 20 6e 65 77 20 20 72 | is  the|  new  r|
|00000b20| 61 74 65 20 6f 66 20 69 | 6e 66 6c 61 74 69 6f 6e |ate of i|nflation|
|00000b30| 20 28 25 29 20 22 3a 66 | 6c 74 6e 3d a4 71 75 65 | (%) ":f|ltn=.que|
|00000b40| 73 74 28 74 31 2c 74 32 | 2c 71 24 2c 66 6c 74 6e |st(t1,t2|,q$,fltn|
|00000b50| 24 29 3a 66 6c 74 6e 24 | 3d c3 28 66 6c 74 6e 29 |$):fltn$|=.(fltn)|
|00000b60| 0d 04 2e 05 e1 0d 04 38 | 05 3a 0d 04 42 0a dd 20 |.......8|.:..B.. |
|00000b70| f2 63 61 72 0d 04 4c 0f | 20 f2 65 6e 74 65 72 72 |.car..L.| .enterr|
|00000b80| 61 74 65 0d 04 56 0f 20 | f2 65 6e 74 65 72 63 6f |ate..V. |.enterco|
|00000b90| 6d 70 0d 04 60 1d 20 65 | 66 66 65 63 52 3d 28 31 |mp..`. e|ffecR=(1|
|00000ba0| 2b 28 52 2f 28 31 30 30 | 2a 6e 29 29 29 5e 6e 0d |+(R/(100|*n)))^n.|
|00000bb0| 04 61 1e 20 65 66 66 65 | 63 74 69 76 65 52 3d 28 |.a. effe|ctiveR=(|
|00000bc0| 65 66 66 65 63 52 2d 31 | 29 2a 31 30 30 0d 04 6a |effecR-1|)*100..j|
|00000bd0| 3e 20 f1 27 27 22 45 66 | 66 65 63 74 69 76 65 20 |> .''"Ef|fective |
|00000be0| 20 72 61 74 65 20 6f 66 | 20 20 69 6e 74 65 72 65 | rate of|  intere|
|00000bf0| 73 74 20 20 20 20 20 20 | 3d 20 22 3b 65 66 66 65 |st      |= ";effe|
|00000c00| 63 74 69 76 65 52 3b 22 | 20 25 22 0d 04 74 2c 20 |ctiveR;"| %"..t, |
|00000c10| f1 8a 30 2c 32 30 29 22 | 50 52 45 53 53 20 61 6e |..0,20)"|PRESS an|
|00000c20| 79 20 6b 65 79 20 74 6f | 20 63 6f 6e 74 69 6e 75 |y key to| continu|
|00000c30| 65 22 3b 3a 47 3d a5 0d | 04 7e 04 0d 04 88 05 e1 |e";:G=..|.~......|
|00000c40| 0d 04 92 05 3a 0d 04 9c | 10 dd 20 a4 79 65 73 6e |....:...|.. .yesn|
|00000c50| 6f 28 61 24 29 0d 04 a6 | 14 20 f1 61 24 3b 22 20 |o(a$)...|. .a$;" |
|00000c60| 28 59 2f 4e 29 3f 20 22 | 3b 0d 04 b0 06 20 f5 0d |(Y/N)? "|;.... ..|
|00000c70| 04 ba 16 20 72 65 70 6c | 79 24 3d bd 28 a5 20 80 |... repl|y$=.(. .|
|00000c80| 20 26 44 46 29 0d 04 c4 | 1e 20 fd 20 72 65 70 6c | &DF)...|. . repl|
|00000c90| 79 24 3d 22 4e 22 20 84 | 20 72 65 70 6c 79 24 3d |y$="N" .| reply$=|
|00000ca0| 22 59 22 0d 04 ce 11 3d | 28 72 65 70 6c 79 24 3d |"Y"....=|(reply$=|
|00000cb0| 22 4e 22 29 0d 04 d8 05 | 3a 0d 04 e2 10 dd 20 f2 |"N")....|:..... .|
|00000cc0| 72 65 67 65 6e 64 76 61 | 6c 0d 04 ec 12 20 f2 65 |regendva|l.... .e|
|00000cd0| 6e 74 65 72 72 65 67 6c | 75 6d 70 0d 04 f6 0e 20 |nterregl|ump.... |
|00000ce0| f2 65 6e 74 65 72 6e 70 | 61 0d 05 00 0f 20 f2 65 |.enternp|a.... .e|
|00000cf0| 6e 74 65 72 74 65 72 6d | 0d 05 0a 0f 20 f2 65 6e |nterterm|.... .en|
|00000d00| 74 65 72 72 61 74 65 0d | 05 14 12 20 69 3d 52 2f |terrate.|... i=R/|
|00000d10| 28 6e 70 61 2a 31 30 30 | 29 0d 05 1e 2d 20 66 75 |(npa*100|)...- fu|
|00000d20| 74 76 61 6c 3d 28 28 28 | 28 31 2b 69 29 5e 28 79 |tval=(((|(1+i)^(y|
|00000d30| 65 61 72 2a 6e 70 61 29 | 29 2d 31 29 2f 69 29 2a |ear*npa)|)-1)/i)*|
|00000d40| 72 65 67 6c 61 72 0d 05 | 28 17 20 6c 75 6d 70 73 |reglar..|(. lumps|
|00000d50| 75 6d 3d 72 65 67 6c 61 | 72 2a 6e 70 61 0d 05 32 |um=regla|r*npa..2|
|00000d60| 05 e1 0d 05 3c 05 3a 0d | 05 46 12 dd 20 f2 72 65 |....<.:.|.F.. .re|
|00000d70| 67 69 6e 74 65 72 65 73 | 74 0d 05 50 12 20 f2 65 |ginteres|t..P. .e|
|00000d80| 6e 74 65 72 72 65 67 6c | 75 6d 70 0d 05 5a 0e 20 |nterregl|ump..Z. |
|00000d90| f2 65 6e 74 65 72 6e 70 | 61 0d 05 64 0f 20 f2 65 |.enternp|a..d. .e|
|00000da0| 6e 74 65 72 74 65 72 6d | 0d 05 6e 15 20 f2 65 6e |nterterm|..n. .en|
|00000db0| 74 65 72 66 75 74 76 61 | 6c 28 31 30 29 0d 05 78 |terfutva|l(10)..x|
|00000dc0| 24 20 f1 8a 30 2c 32 32 | 29 22 43 6f 6d 70 75 74 |$ ..0,22|)"Comput|
|00000dd0| 69 6e 67 2d 50 6c 65 61 | 73 65 20 57 61 69 74 22 |ing-Plea|se Wait"|
|00000de0| 3b 0d 05 82 18 20 69 3d | 30 3a 78 3d 66 75 74 76 |;.... i=|0:x=futv|
|00000df0| 61 6c 2f 72 65 67 6c 61 | 72 0d 05 8c 06 20 f5 0d |al/regla|r.... ..|
|00000e00| 05 96 0f 20 20 69 3d 69 | 2b 30 2e 30 30 35 0d 05 |...  i=i|+0.005..|
|00000e10| a0 1c 20 20 52 3d 69 2a | 6e 70 61 2a 31 30 30 3a |..  R=i*|npa*100:|
|00000e20| f1 8a 33 30 2c 32 33 29 | 3b 52 0d 05 aa 20 20 20 |..30,23)|;R...   |
|00000e30| 79 3d 28 28 28 31 2b 69 | 29 5e 28 79 65 61 72 2a |y=(((1+i|)^(year*|
|00000e40| 6e 70 61 29 29 2d 31 29 | 2f 69 0d 05 b4 10 20 fd |npa))-1)|/i.... .|
|00000e50| 20 79 3d 78 20 84 20 79 | 3e 78 0d 05 be 10 20 69 | y=x . y|>x.... i|
|00000e60| 3d 69 2d 30 2e 30 30 35 | 30 31 0d 05 c8 06 20 f5 |=i-0.005|01.... .|
|00000e70| 0d 05 d2 11 20 20 69 3d | 69 2b 30 2e 30 30 30 30 |....  i=|i+0.0000|
|00000e80| 35 0d 05 dc 1c 20 20 52 | 3d 69 2a 6e 70 61 2a 31 |5....  R|=i*npa*1|
|00000e90| 30 30 3a f1 8a 33 30 2c | 32 33 29 3b 52 0d 05 e6 |00:..30,|23);R...|
|00000ea0| 20 20 20 79 3d 28 28 28 | 31 2b 69 29 5e 28 79 65 |   y=(((|1+i)^(ye|
|00000eb0| 61 72 2a 6e 70 61 29 29 | 2d 31 29 2f 69 0d 05 f0 |ar*npa))|-1)/i...|
|00000ec0| 10 20 fd 20 79 3d 78 20 | 84 20 79 3e 78 0d 05 fa |. . y=x |. y>x...|
|00000ed0| 23 20 52 3d 69 2a 6e 70 | 61 2a 31 30 30 3a 6c 75 |# R=i*np|a*100:lu|
|00000ee0| 6d 70 73 75 6d 3d 72 65 | 67 6c 61 72 2a 6e 70 61 |mpsum=re|glar*npa|
|00000ef0| 0d 06 04 05 e1 0d 06 0e | 05 3a 0d 06 18 11 dd 20 |........|.:..... |
|00000f00| f2 72 65 67 73 74 61 72 | 74 76 6c 0d 06 22 1d 20 |.regstar|tvl..". |
|00000f10| 66 6c 74 6e 3d 30 3a 64 | 65 66 6c 61 74 65 3d 30 |fltn=0:d|eflate=0|
|00000f20| 3a 72 65 61 6c 52 3d 30 | 0d 06 2c 0e 20 f2 65 6e |:realR=0|..,. .en|
|00000f30| 74 65 72 6e 70 61 0d 06 | 36 0f 20 f2 65 6e 74 65 |ternpa..|6. .ente|
|00000f40| 72 74 65 72 6d 0d 06 40 | 0f 20 f2 65 6e 74 65 72 |rterm..@|. .enter|
|00000f50| 72 61 74 65 0d 06 4a 15 | 20 f2 65 6e 74 65 72 66 |rate..J.| .enterf|
|00000f60| 75 74 76 61 6c 28 31 32 | 29 0d 06 54 12 20 69 3d |utval(12|)..T. i=|
|00000f70| 52 2f 28 6e 70 61 2a 31 | 30 30 29 0d 06 5e 2d 20 |R/(npa*1|00)..^- |
|00000f80| 72 65 67 6c 61 72 3d 66 | 75 74 76 61 6c 2f 28 28 |reglar=f|utval/((|
|00000f90| 28 28 31 2b 69 29 5e 28 | 79 65 61 72 2a 6e 70 61 |((1+i)^(|year*npa|
|00000fa0| 29 29 2d 31 29 2f 69 29 | 0d 06 68 05 e1 0d 06 72 |))-1)/i)|..h....r|
|00000fb0| 05 3a 0d 06 7c 0f dd 20 | f2 6c 6d 70 70 72 69 6e |.:..|.. |.lmpprin|
|00000fc0| 74 0d 06 86 2b 20 f1 22 | 4c 75 6d 70 73 75 6d 20 |t...+ ."|Lumpsum |
|00000fd0| 69 6e 76 65 73 74 6d 65 | 6e 74 20 20 20 20 20 20 |investme|nt      |
|00000fe0| 3d 20 a3 20 22 6c 75 6d | 70 73 75 6d 0d 06 90 05 |= . "lum|psum....|
|00000ff0| e1 0d 06 9a 05 3a 0d 06 | a4 0f dd 20 f2 72 65 67 |.....:..|... .reg|
|00001000| 70 72 69 6e 74 0d 06 ae | 2a 20 f1 22 52 65 67 75 |print...|* ."Regu|
|00001010| 6c 61 72 20 61 6d 6f 75 | 6e 74 20 69 6e 76 65 73 |lar amou|nt inves|
|00001020| 74 65 64 20 3d 20 a3 20 | 22 72 65 67 6c 61 72 0d |ted = . |"reglar.|
|00001030| 06 b8 27 20 f1 22 4e 75 | 6d 62 65 72 20 6f 66 20 |..' ."Nu|mber of |
|00001040| 64 65 70 6f 73 69 74 73 | 20 70 2e 61 2e 20 3d 20 |deposits| p.a. = |
|00001050| a3 20 22 6e 70 61 0d 06 | c2 2e 20 f1 22 41 6d 6f |. "npa..|.. ."Amo|
|00001060| 75 6e 74 20 73 61 76 65 | 64 20 70 2e 61 2e 20 20 |unt save|d p.a.  |
|00001070| 20 20 20 20 20 3d 20 a3 | 20 22 72 65 67 6c 61 72 |     = .| "reglar|
|00001080| 2a 6e 70 61 0d 06 cc 05 | e1 0d 06 d6 05 3a 0d 06 |*npa....|.....:..|
|00001090| e0 1c dd 20 a4 71 75 65 | 73 74 28 79 31 2c 79 32 |... .que|st(y1,y2|
|000010a0| 2c 51 24 2c 64 61 74 61 | 24 29 0d 06 ea 09 20 ea |,Q$,data|$).... .|
|000010b0| 20 69 6e 0d 06 f4 06 20 | f5 0d 06 fe 15 20 20 f1 | in.... |.....  .|
|000010c0| 8a 30 2c 79 31 29 51 24 | 3b 64 61 74 61 24 0d 07 |.0,y1)Q$|;data$..|
|000010d0| 08 10 20 20 e8 8a 79 32 | 2c 79 31 29 69 6e 0d 07 |..  ..y2|,y1)in..|
|000010e0| 12 1a 20 20 e7 20 69 6e | 3d 30 20 8c 20 69 6e 3d |..  . in|=0 . in=|
|000010f0| bb 28 64 61 74 61 24 29 | 0d 07 1c 0b 20 fd 20 69 |.(data$)|.... . i|
|00001100| 6e 3e 30 0d 07 26 09 3d | 28 69 6e 29 0d 07 30 05 |n>0..&.=|(in)..0.|
|00001110| 3a 0d 07 3a 10 dd 20 f2 | 65 6e 74 65 72 74 65 72 |:..:.. .|enterter|
|00001120| 6d 0d 07 44 5f 20 74 31 | 3d 38 3a 74 32 3d 33 32 |m..D_ t1|=8:t2=32|
|00001130| 3a 71 24 3d 22 45 6e 74 | 65 72 20 69 6e 76 65 73 |:q$="Ent|er inves|
|00001140| 74 6d 65 6e 74 20 74 65 | 72 6d 20 28 79 65 61 72 |tment te|rm (year|
|00001150| 73 29 20 3f 20 22 3a 79 | 65 61 72 3d a4 71 75 65 |s) ? ":y|ear=.que|
|00001160| 73 74 28 74 31 2c 74 32 | 2c 71 24 2c 79 65 61 72 |st(t1,t2|,q$,year|
|00001170| 24 29 3a 79 65 61 72 24 | 3d c3 28 79 65 61 72 29 |$):year$|=.(year)|
|00001180| 0d 07 4e 05 e1 0d 07 58 | 05 3a 0d 07 62 10 dd 20 |..N....X|.:..b.. |
|00001190| f2 65 6e 74 65 72 72 61 | 74 65 0d 07 6c 54 20 74 |.enterra|te..lT t|
|000011a0| 31 3d 31 30 3a 74 32 3d | 33 32 3a 71 24 3d 22 57 |1=10:t2=|32:q$="W|
|000011b0| 68 61 74 20 69 73 20 74 | 68 65 20 72 61 74 65 20 |hat is t|he rate |
|000011c0| 6f 66 20 69 6e 74 65 72 | 65 73 74 20 20 3f 20 22 |of inter|est  ? "|
|000011d0| 3a 52 3d a4 71 75 65 73 | 74 28 74 31 2c 74 32 2c |:R=.ques|t(t1,t2,|
|000011e0| 71 24 2c 52 24 29 3a 52 | 24 3d c3 28 52 29 0d 07 |q$,R$):R|$=.(R)..|
|000011f0| 76 05 e1 0d 07 80 05 3a | 0d 07 8a 10 dd 20 f2 65 |v......:|..... .e|
|00001200| 6e 74 65 72 63 6f 6d 70 | 0d 07 94 76 20 f5 3a 74 |ntercomp|...v .:t|
|00001210| 31 3d 31 32 3a 74 32 3d | 35 36 3a 71 24 3d 22 48 |1=12:t2=|56:q$="H|
|00001220| 6f 77 20 6f 66 74 65 6e | 20 69 73 20 74 68 65 20 |ow often| is the |
|00001230| 69 6e 74 65 72 65 73 74 | 20 63 6f 6d 70 6f 75 6e |interest| compoun|
|00001240| 64 65 64 20 69 6e 20 61 | 20 79 65 61 72 20 28 31 |ded in a| year (1|
|00001250| 2d 31 32 29 20 3f 20 22 | 3a 6e 3d a4 71 75 65 73 |-12) ? "|:n=.ques|
|00001260| 74 28 74 31 2c 74 32 2c | 71 24 2c 6e 24 29 3a 6e |t(t1,t2,|q$,n$):n|
|00001270| 24 3d c3 28 6e 29 3a fd | 20 6e 3c 3d 31 32 0d 07 |$=.(n):.| n<=12..|
|00001280| 9e 05 e1 0d 07 a8 05 3a | 0d 07 b2 16 dd 20 f2 65 |.......:|..... .e|
|00001290| 6e 74 65 72 66 75 74 76 | 61 6c 28 79 31 29 0d 07 |nterfutv|al(y1)..|
|000012a0| bc 85 20 74 31 3d 79 31 | 3a 74 32 3d 36 31 3a 71 |.. t1=y1|:t2=61:q|
|000012b0| 24 3d 22 57 68 61 74 20 | 69 73 20 65 78 70 65 63 |$="What |is expec|
|000012c0| 74 65 64 20 66 75 74 75 | 72 65 20 76 61 6c 75 65 |ted futu|re value|
|000012d0| 20 6f 66 20 69 6e 76 65 | 73 74 6d 65 6e 74 20 61 | of inve|stment a|
|000012e0| 74 20 65 6e 64 20 6f 66 | 20 74 65 72 6d 20 a3 20 |t end of| term . |
|000012f0| 22 3a 66 75 74 76 61 6c | 3d a4 71 75 65 73 74 28 |":futval|=.quest(|
|00001300| 74 31 2c 74 32 2c 71 24 | 2c 66 75 74 76 61 6c 24 |t1,t2,q$|,futval$|
|00001310| 29 3a 66 75 74 76 61 6c | 24 3d c3 28 66 75 74 76 |):futval|$=.(futv|
|00001320| 61 6c 29 0d 07 c6 05 e1 | 0d 07 d0 05 3a 0d 07 da |al).....|....:...|
|00001330| 0f dd 20 f2 65 6e 74 65 | 72 6e 70 61 0d 07 e4 5b |.. .ente|rnpa...[|
|00001340| 20 74 31 3d 36 3a 74 32 | 3d 33 32 3a 71 24 3d 22 | t1=6:t2|=32:q$="|
|00001350| 45 6e 74 65 72 20 6e 75 | 6d 62 65 72 20 6f 66 20 |Enter nu|mber of |
|00001360| 64 65 70 6f 73 69 74 73 | 20 70 2e 61 2e 20 20 20 |deposits| p.a.   |
|00001370| 22 3a 6e 70 61 3d a4 71 | 75 65 73 74 28 74 31 2c |":npa=.q|uest(t1,|
|00001380| 74 32 2c 71 24 2c 6e 70 | 61 24 29 3a 6e 70 61 24 |t2,q$,np|a$):npa$|
|00001390| 3d c3 28 6e 70 61 29 0d | 07 ee 05 e1 0d 07 f8 05 |=.(npa).|........|
|000013a0| 3a 0d 08 02 10 dd 20 f2 | 65 6e 74 65 72 6c 75 6d |:..... .|enterlum|
|000013b0| 70 0d 08 0c 6b 20 74 31 | 3d 36 3a 74 32 3d 33 32 |p...k t1|=6:t2=32|
|000013c0| 3a 71 24 3d 22 45 6e 74 | 65 72 20 6c 75 6d 70 20 |:q$="Ent|er lump |
|000013d0| 73 75 6d 20 74 6f 20 62 | 65 20 69 6e 76 65 73 74 |sum to b|e invest|
|000013e0| 65 64 20 a3 20 22 3a 6c | 75 6d 70 73 75 6d 3d a4 |ed . ":l|umpsum=.|
|000013f0| 71 75 65 73 74 28 74 31 | 2c 74 32 2c 71 24 2c 6c |quest(t1|,t2,q$,l|
|00001400| 75 6d 70 73 75 6d 24 29 | 3a 6c 75 6d 70 73 75 6d |umpsum$)|:lumpsum|
|00001410| 24 3d c3 28 6c 75 6d 70 | 73 75 6d 29 0d 08 16 05 |$=.(lump|sum)....|
|00001420| e1 0d 08 20 05 3a 0d 08 | 2a 13 dd 20 f2 65 6e 74 |... .:..|*.. .ent|
|00001430| 65 72 72 65 67 6c 75 6d | 70 0d 08 34 1d 20 66 6c |erreglum|p..4. fl|
|00001440| 74 6e 3d 30 3a 64 65 66 | 6c 61 74 65 3d 30 3a 72 |tn=0:def|late=0:r|
|00001450| 65 61 6c 52 3d 30 0d 08 | 3e 67 20 74 31 3d 34 3a |ealR=0..|>g t1=4:|
|00001460| 74 32 3d 33 32 3a 71 24 | 3d 22 45 6e 74 65 72 20 |t2=32:q$|="Enter |
|00001470| 72 65 67 75 6c 61 72 20 | 61 6d 6f 75 6e 74 20 69 |regular |amount i|
|00001480| 6e 76 65 73 74 65 64 20 | a3 20 22 3a 72 65 67 6c |nvested |. ":regl|
|00001490| 61 72 3d a4 71 75 65 73 | 74 28 74 31 2c 74 32 2c |ar=.ques|t(t1,t2,|
|000014a0| 71 24 2c 72 65 67 6c 61 | 72 24 29 3a 72 65 67 6c |q$,regla|r$):regl|
|000014b0| 61 72 24 3d c3 28 72 65 | 67 6c 61 72 29 0d 08 48 |ar$=.(re|glar)..H|
|000014c0| 05 e1 0d 08 52 05 3a 0d | 08 5c 0c dd 20 f2 74 69 |....R.:.|.\.. .ti|
|000014d0| 74 6c 65 0d 08 66 07 20 | ef 35 0d 08 70 17 20 c8 |tle..f. |.5..p. .|
|000014e0| 93 20 31 30 2c 38 32 30 | 2c 31 32 36 30 2c 31 36 |. 10,820|,1260,16|
|000014f0| 30 0d 08 7a 17 20 ef 32 | 33 2c 31 37 2c 37 2c 36 |0..z. .2|3,17,7,6|
|00001500| 2c 38 3b 31 36 3b 30 3b | 0d 08 84 0e 20 ec 20 34 |,8;16;0;|.... . 4|
|00001510| 32 30 2c 39 32 30 0d 08 | 8e 24 20 f1 22 43 4f 4d |20,920..|.$ ."COM|
|00001520| 50 4f 55 4e 44 20 49 4e | 54 45 52 45 53 54 20 43 |POUND IN|TEREST C|
|00001530| 41 4c 43 55 4c 41 54 4f | 52 22 0d 08 98 07 20 ef |ALCULATO|R".... .|
|00001540| 34 0d 08 a2 06 20 e1 0d | 08 ac 06 20 3a 0d 08 b6 |4.... ..|... :...|
|00001550| 04 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+